home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Q-R / Restaurants.cpt / Restaurants / background_3478.txt < prev    next >
Text File  |  1987-12-20  |  12KB  |  554 lines
  1. -- background: 3478 from stack: in
  2. -- bmap block id: 14485
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: American
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11. on NewCard
  12.   set the lockScreen to true
  13.   doMenu "New Button"
  14.   set name of button "New Button" to "¬¢"
  15.   set style of button ¬¢ to checkBox
  16.   set rect of button ¬¢ to 37,313,65,329
  17.   -- now construct script for the new button
  18.   put "on mouseUp" & return into buttonScript
  19.   put "set hilite of button ID 1 to TRUE" & return after buttonScript
  20.   put "set hilite of button ID 2 to FALSE" & return after buttonScript
  21.   put "set hilite of button ID 3 to FALSE" & return after buttonScript
  22.   put "set hilite of button ID 4 to FALSE" & return after buttonScript
  23.   put "end mouseUp" & return after buttonScript
  24.   set script of button ¬¢ to buttonScript
  25.   show button ¬¢
  26.   doMenu "New Button"
  27.   set name of button "New Button" to "$"
  28.   set style of button $ to checkBox
  29.   set rect of button $ to 81,313,109,329
  30.   -- now construct script for the new button
  31.   put "on mouseUp" & return into buttonScript
  32.   put "set hilite of button ID 1 to FALSE" & return after buttonScript
  33.   put "set hilite of button ID 2 to TRUE" & return after buttonScript
  34.   put "set hilite of button ID 3 to FALSE" & return after buttonScript
  35.   put "set hilite of button ID 4 to FALSE" & return after buttonScript
  36.   put "end mouseUp" & return after buttonScript
  37.   set script of button $ to buttonScript
  38.   show button $
  39.   doMenu "New Button"
  40.   set name of button "New Button" to "$$"
  41.   set style of button "$$" to checkBox
  42.   set rect of button "$$" to 125,313,160,329
  43.   -- now construct script for the new button
  44.   put "on mouseUp" & return into buttonScript
  45.   put "set hilite of button ID 1 to FALSE" & return after buttonScript
  46.   put "set hilite of button ID 2 to FALSE" & return after buttonScript
  47.   put "set hilite of button ID 3 to TRUE" & return after buttonScript
  48.   put "set hilite of button ID 4 to FALSE" & return after buttonScript
  49.   put "end mouseUp" & return after buttonScript
  50.   set script of button "$$" to buttonScript
  51.   show button "$$"
  52.   doMenu "New Button"
  53.   set name of button "New Button" to "$$$"
  54.   set style of button "$$$" to checkBox
  55.   set rect of button "$$$" to 176,313,217,329
  56.   -- now construct script for the new button
  57.   put "on mouseUp" & return into buttonScript
  58.   put "set hilite of button ID 1 to FALSE" & return after buttonScript
  59.   put "set hilite of button ID 2 to FALSE" & return after buttonScript
  60.   put "set hilite of button ID 3 to FALSE" & return after buttonScript
  61.   put "set hilite of button ID 4 to TRUE" & return after buttonScript
  62.   put "end mouseUp" & return after buttonScript
  63.   set script of button "$$$" to buttonScript
  64.   show button "$$$"
  65.   choose browse tool
  66.   global AmericanNumber
  67.   add 1 to AmericanNumber
  68. end NewCard
  69.  
  70. on CutCard
  71.   global AmericanNumber
  72.   subtract 1 from AmericanNumber
  73. end CutCard
  74.  
  75. on DeleteCard
  76.   global AmericanNumber
  77.   subtract 1 from AmericanNumber
  78. end DeleteCard
  79.  
  80.  
  81.  
  82.  
  83.  
  84. -- part 17 (field)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=20 top=147 right=311 bottom=224
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 2
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: 
  96.  
  97.  
  98. -- part 18 (field)
  99. -- low flags: 00
  100. -- high flags: 0000
  101. -- rect: left=237 top=171 right=220 bottom=485
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 0
  105. -- font id: 2
  106. -- text size: 18
  107. -- style flags: 0
  108. -- line height: 24
  109. -- part name: 
  110.  
  111.  
  112. -- part 21 (field)
  113. -- low flags: 00
  114. -- high flags: 0000
  115. -- rect: left=237 top=222 right=278 bottom=485
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 0
  119. -- font id: 2
  120. -- text size: 14
  121. -- style flags: 0
  122. -- line height: 18
  123. -- part name: 
  124.  
  125.  
  126. -- part 22 (field)
  127. -- low flags: 00
  128. -- high flags: 0000
  129. -- rect: left=237 top=280 right=300 bottom=485
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 0
  133. -- font id: 2
  134. -- text size: 14
  135. -- style flags: 0
  136. -- line height: 18
  137. -- part name: 
  138.  
  139.  
  140. -- part 24 (button)
  141. -- low flags: 00
  142. -- high flags: 0000
  143. -- rect: left=419 top=299 right=324 bottom=443
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 15420 / 15420
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: Prev
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   visual effect wipe right
  155.   go to previous card
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 25 (button)
  161. -- low flags: 00
  162. -- high flags: 0000
  163. -- rect: left=443 top=299 right=324 bottom=465
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 16560 / 16560
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: Next
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.   visual effect wipe left
  175.   go to next card
  176. end mouseUp
  177.  
  178.  
  179.  
  180. -- part 27 (button)
  181. -- low flags: 00
  182. -- high flags: 0000
  183. -- rect: left=467 top=299 right=326 bottom=490
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 6720 / 6720
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: Return
  192. ----- HyperTalk script -----
  193. on mouseUp
  194.   visual effect iris close
  195.   go to first card
  196. end mouseUp
  197.  
  198.  
  199.  
  200. -- part 28 (button)
  201. -- low flags: 00
  202. -- high flags: 0000
  203. -- rect: left=235 top=300 right=329 bottom=267
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 21847 / 21847
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: Home
  212. ----- HyperTalk script -----
  213. on mouseUp
  214.   visual effect dissolve
  215.   go Home
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part 29 (button)
  221. -- low flags: 00
  222. -- high flags: 0000
  223. -- rect: left=21 top=63 right=150 bottom=145
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: Wine Glass
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   visual effect dissolve fast
  235.   go to card id 3672
  236. end mouseUp
  237.  
  238.  
  239.  
  240.  
  241. -- part 30 (button)
  242. -- low flags: 00
  243. -- high flags: 0000
  244. -- rect: left=326 top=48 right=65 bottom=395
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 1
  248. -- font id: 0
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: Seafood
  253. ----- HyperTalk script -----
  254. on mouseUp
  255.   visual effect dissolve fast
  256.   go to first card of background "Seafood"
  257. end mouseUp
  258.  
  259.  
  260.  
  261.  
  262. -- part 31 (button)
  263. -- low flags: 00
  264. -- high flags: 0000
  265. -- rect: left=246 top=56 right=72 bottom=310
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 0 / 0
  268. -- text alignment: 1
  269. -- font id: 0
  270. -- text size: 12
  271. -- style flags: 0
  272. -- line height: 16
  273. -- part name: Mexican
  274. ----- HyperTalk script -----
  275. on mouseUp
  276.   visual effect dissolve fast
  277.   go to first card of background "Mexican"
  278. end mouseUp
  279.  
  280.  
  281.  
  282.  
  283. -- part 32 (button)
  284. -- low flags: 00
  285. -- high flags: 0000
  286. -- rect: left=412 top=42 right=59 bottom=477
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 1
  290. -- font id: 0
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: Thai
  295. ----- HyperTalk script -----
  296. on mouseUp
  297.   visual effect dissolve fast
  298.   go to first card of background "Thai"
  299. end mouseUp
  300.  
  301.  
  302.  
  303.  
  304. -- part 33 (button)
  305. -- low flags: 00
  306. -- high flags: 0000
  307. -- rect: left=411 top=63 right=80 bottom=479
  308. -- title width / last selected line: 0
  309. -- icon id / first selected line: 0 / 0
  310. -- text alignment: 1
  311. -- font id: 0
  312. -- text size: 12
  313. -- style flags: 0
  314. -- line height: 16
  315. -- part name: Japanese
  316. ----- HyperTalk script -----
  317. on mouseUp
  318.   visual effect dissolve fast
  319.   go to first card of background "Japanese"
  320. end mouseUp
  321.  
  322.  
  323.  
  324.  
  325. -- part 34 (button)
  326. -- low flags: 00
  327. -- high flags: 0000
  328. -- rect: left=328 top=70 right=87 bottom=391
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 1
  332. -- font id: 0
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: Italian
  337. ----- HyperTalk script -----
  338. on mouseUp
  339.   visual effect dissolve fast
  340.   go to first card of background "Italian"
  341. end mouseUp
  342.  
  343.  
  344.  
  345.  
  346. -- part 35 (button)
  347. -- low flags: 00
  348. -- high flags: 0000
  349. -- rect: left=246 top=77 right=93 bottom=310
  350. -- title width / last selected line: 0
  351. -- icon id / first selected line: 0 / 0
  352. -- text alignment: 1
  353. -- font id: 0
  354. -- text size: 12
  355. -- style flags: 0
  356. -- line height: 16
  357. -- part name: Indian
  358. ----- HyperTalk script -----
  359. on mouseUp
  360.   visual effect dissolve fast
  361.   go to card id 12153first card of background "Indian"
  362. end mouseUp
  363.  
  364.  
  365.  
  366.  
  367. -- part 36 (button)
  368. -- low flags: 00
  369. -- high flags: 0000
  370. -- rect: left=412 top=84 right=101 bottom=478
  371. -- title width / last selected line: 0
  372. -- icon id / first selected line: 0 / 0
  373. -- text alignment: 1
  374. -- font id: 0
  375. -- text size: 12
  376. -- style flags: 0
  377. -- line height: 16
  378. -- part name: German
  379. ----- HyperTalk script -----
  380. on mouseUp
  381.   visual effect dissolve fast
  382.   go to first card of background "German"
  383. end mouseUp
  384.  
  385.  
  386.  
  387.  
  388. -- part 37 (button)
  389. -- low flags: 00
  390. -- high flags: 0000
  391. -- rect: left=327 top=91 right=107 bottom=395
  392. -- title width / last selected line: 0
  393. -- icon id / first selected line: 0 / 0
  394. -- text alignment: 1
  395. -- font id: 0
  396. -- text size: 12
  397. -- style flags: 0
  398. -- line height: 16
  399. -- part name: French
  400. ----- HyperTalk script -----
  401. on mouseUp
  402.   visual effect dissolve fast
  403.   go to first card of background "French"
  404. end mouseUp
  405.  
  406.  
  407.  
  408.  
  409. -- part 38 (button)
  410. -- low flags: 00
  411. -- high flags: 0000
  412. -- rect: left=245 top=97 right=113 bottom=311
  413. -- title width / last selected line: 0
  414. -- icon id / first selected line: 0 / 0
  415. -- text alignment: 1
  416. -- font id: 0
  417. -- text size: 12
  418. -- style flags: 0
  419. -- line height: 16
  420. -- part name: Deli
  421. ----- HyperTalk script -----
  422. on mouseUp
  423.   visual effect dissolve fast
  424.   go to first card of background "Deli"
  425. end mouseUp
  426.  
  427.  
  428.  
  429.  
  430. -- part 39 (button)
  431. -- low flags: 00
  432. -- high flags: 0000
  433. -- rect: left=409 top=104 right=121 bottom=481
  434. -- title width / last selected line: 0
  435. -- icon id / first selected line: 0 / 0
  436. -- text alignment: 1
  437. -- font id: 0
  438. -- text size: 12
  439. -- style flags: 0
  440. -- line height: 16
  441. -- part name: Continental
  442. ----- HyperTalk script -----
  443. on mouseUp
  444.   visual effect dissolve fast
  445.   go to card id 8168
  446. end mouseUp
  447.  
  448.  
  449.  
  450.  
  451. -- part 40 (button)
  452. -- low flags: 00
  453. -- high flags: 0000
  454. -- rect: left=409 top=104 right=121 bottom=481
  455. -- title width / last selected line: 0
  456. -- icon id / first selected line: 0 / 0
  457. -- text alignment: 1
  458. -- font id: 0
  459. -- text size: 12
  460. -- style flags: 0
  461. -- line height: 16
  462. -- part name: Continental
  463. ----- HyperTalk script -----
  464. on mouseUp
  465.   visual effect dissolve fast
  466.   go to first card of background "Continental"
  467. end mouseUp
  468.  
  469.  
  470.  
  471.  
  472. -- part 41 (button)
  473. -- low flags: 00
  474. -- high flags: 0000
  475. -- rect: left=325 top=111 right=128 bottom=395
  476. -- title width / last selected line: 0
  477. -- icon id / first selected line: 0 / 0
  478. -- text alignment: 1
  479. -- font id: 0
  480. -- text size: 12
  481. -- style flags: 0
  482. -- line height: 16
  483. -- part name: Chinese
  484. ----- HyperTalk script -----
  485. on mouseUp
  486.   visual effect dissolve fast
  487.   go to first card of background "Chinese"
  488. end mouseUp
  489.  
  490.  
  491.  
  492.  
  493. -- part 42 (button)
  494. -- low flags: 00
  495. -- high flags: 0000
  496. -- rect: left=244 top=119 right=134 bottom=311
  497. -- title width / last selected line: 0
  498. -- icon id / first selected line: 0 / 0
  499. -- text alignment: 1
  500. -- font id: 0
  501. -- text size: 12
  502. -- style flags: 0
  503. -- line height: 16
  504. -- part name: California
  505. ----- HyperTalk script -----
  506. on mouseUp
  507.   visual effect dissolve fast
  508.   go to first card of background "California"
  509. end mouseUp
  510.  
  511.  
  512.  
  513.  
  514. -- part 43 (button)
  515. -- low flags: 00
  516. -- high flags: 0000
  517. -- rect: left=412 top=126 right=143 bottom=477
  518. -- title width / last selected line: 0
  519. -- icon id / first selected line: 0 / 0
  520. -- text alignment: 1
  521. -- font id: 0
  522. -- text size: 12
  523. -- style flags: 0
  524. -- line height: 16
  525. -- part name: Cajun
  526. ----- HyperTalk script -----
  527. on mouseUp
  528.   visual effect dissolve fast
  529.   go to first card of background "Cajun"
  530. end mouseUp
  531.  
  532.  
  533.  
  534.  
  535. -- part 44 (button)
  536. -- low flags: 00
  537. -- high flags: 0000
  538. -- rect: left=326 top=133 right=150 bottom=393
  539. -- title width / last selected line: 0
  540. -- icon id / first selected line: 0 / 0
  541. -- text alignment: 1
  542. -- font id: 0
  543. -- text size: 12
  544. -- style flags: 0
  545. -- line height: 16
  546. -- part name: Barbecue
  547. ----- HyperTalk script -----
  548. on mouseUp
  549.   visual effect dissolve fast
  550.   go to first card of background "Barbecue"
  551. end mouseUp
  552.  
  553.  
  554.